home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 1 / QRZ Ham Radio Callsign Database - December 1993.iso / ucsd / packet / thebox / sourcarc.exe / arc / LOGTRENN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-18  |  1.1 KB  |  63 lines
  1. Var
  2.  
  3.   Source,Ziel1,Ziel2 : text[20000];
  4.   Zeile              : String[255];
  5.   Count              : Integer;
  6.   oldfile            : boolean;
  7.  
  8. begin
  9.  if paramcount > 3 then
  10.  begin
  11.   assign(Source,ParamStr(1));
  12.   {$I-}reset(Source);{$I+}
  13.  
  14.   if IOResult = 0 then
  15.   begin
  16.    assign(Ziel1,ParamStr(2));
  17.    rewrite(Ziel1);
  18.  
  19.    assign(Ziel2,ParamStr(3));
  20.    rewrite(Ziel2);
  21.  
  22.    oldfile := true;
  23.    Count   := 0;
  24.    write(#13'      Zeilen ',ParamStr(2));
  25.  
  26.    repeat
  27.     readln(Source,Zeile);
  28.     if (copy(Zeile,9,8) = ParamStr(4)) and oldfile then
  29.     begin
  30.      oldfile := false;
  31.      Count   := 1;
  32.      write(#13#10'      Zeilen ',ParamStr(3));
  33.     end;
  34.  
  35.     if oldfile then
  36.     writeln(Ziel1,Zeile)
  37.  
  38.     else
  39.  
  40.     writeln(Ziel2,Zeile);
  41.  
  42.     Count := succ(Count);
  43.     write(#13,Count);
  44.  
  45.    until eof(Source);
  46.  
  47.    writeln;
  48.  
  49.    close(Source);
  50.    close(Ziel1);
  51.    close(Ziel2);
  52.   end
  53.  
  54.   else
  55.  
  56.   writeln(ParamStr(1),' nicht gefunden!');
  57.  
  58.  end
  59.  else
  60.  begin
  61.   writeln('Fehlerhafte Parameterliste! Aufruf z.B. LOGTRENN Source Ziel1 Ziel2 Datum');
  62.  end;
  63. end.